home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / gmpvb2.exe / WORDDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-11-13  |  1.1 KB  |  43 lines
  1. Declare Function IsAppLoaded Lib "kernel" Alias "GetModuleHandle" (ByVal N As String) As Integer
  2.  
  3. Global Const TRUE = -1
  4. Global Const FALSE = 0
  5. Global Const NONE = 0
  6. Global Const HOT = 1
  7. Global Const COLD = 2
  8.  
  9. Global nl As String
  10. Global q As String
  11. Global ProgName As String
  12. Global DirName As String
  13. Global ThisProg As String
  14.  
  15. Global chan1 As String
  16.  
  17. ' WindowState (form)
  18. Global Const NORMAL = 0                ' 0 - Normal
  19. Global Const MINIMIZED = 1             ' 1 - Minimized
  20. Global Const MAXIMIZED = 2             ' 2 - Maximized
  21.  
  22. ' Show (form)
  23. Global Const MODAL = 1
  24. Global Const MODELESS = 0
  25.  
  26.  
  27. ' This is used when checking if a file exists
  28. Type OfStruct
  29.     RecLen As String * 1
  30.     IsFixed As String * 1
  31.     ErrCode As Integer
  32.     Reserved As String * 4
  33.     CompleteName As String * 128
  34. End Type
  35.  
  36. ' OpenFile is used to check if a file exists.
  37. ' lclose closes the file opened with OpenFile
  38. Declare Function OpenFile Lib "kernel" (ByVal fname$, aStruct As OfStruct, ByVal ofstyle%) As Integer
  39. Declare Function lclose Lib "kernel" Alias "_lclose" (ByVal FHandle%) As Integer
  40.  
  41. Global Const OF_EXIST = &H4000
  42.  
  43.